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Problem 


When attempting to merge Database and Portfolio, a System Error occurs. 


* * THE FOLLOWING CHANGE IS REQUIRED * * 


Solution 

CHANGES TO STOCKPAK PROGRAM: 

1. Back up the diskette(s) make changes on the Backup copy of the program. 

2. In BASIC load the program by typing LOAD"STOCKPAK:0". 

3. Make the following corrections. 

Old Line: 5 REM S & P MONITOR PROGRAM - ON DISK AS "STOCKPAK", LAST UPDATE 
04/81 

New Line: 5 REM S & P MONITOR PROGRAM VERSION 03.00.01 - ON DISK AS 
"STOCKPAK", LAST UPDATE 06/83 


CHANGES TO REPRUN/BAS: 

1. Back up the diskette(s) make changes on the Backup copy of the program. 

2. In BASIC load the program by typing L0AD"REPRUN/BAS:0". 

3. Make the following corrections. 

Old Line: 1715 F0RK=1T0C2:Y=VAL(MID$(P9$,K*2-1,1)):V8=ASC(MID$(CX$,K,1)): 

IF(V8<V5)0R(V8=V6)0R(V8=V7)THENPRINTSTRING$(8," "),:GOTOl730 

New Line: 1715 F0RK=lT0C2:Y=VAL(MID$(P9$,K*2-1,1)):V8=ASC(MID$(CX$,K,1)): 

IF(V8<V5)OR(V8=V6)OR(V8=V7)OR(M0(K)=0)THENPRINTSTRING$(8," ");: 
GOTO1730 
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CHANGES TO PSMAINT: 


1. Backup the diskette(s) make changes on the Backup copy of the program. 

2. In BASIC load the program by typing "LOAD PAMAINT:0". 

3. Make the following corrections. 

Old Lines: 4023 V#(l)=CVD(MID$(R$(l),J+11,8)):V#(3)=CVD(MID$(R$(l),J+19,8)) 
:CR#=CVD(MID$(R$(I),J+51,8))+CVD(MID$(R$(l),J+59,8)):PE%=CVI(MID 
$(R$(I),J+79,2)):DV#+CVD(MID$(R$(I),J+43,8)):V#(2)=CVI(MID$(R$(I 
),J=7,2))*CVS(MID$(R$(I),J+75,4)):V#(4)=CVD(MID$(R$(I),27,8))-V# 
(3) 

4024V#(4)=V#(3)-CVD(MID$(R$(I),J+27,8)):PE!=PE%/100:V#(5)=V#(2)-V 
#1)+CVD(MID$(R$(I),J+27,8)):V%=ASC(MID$(R$(I),J+83,1)):IFV%=THEN4 
025ELSEV%=(V%*3)-2:IFV%>31THENV%=34 

4026 P5%=10-LEN(STR$(SH%)):P4%=10-LEN(STR$(PE!)):LPRINTFNA$(15); 
G$(4);TI$;" ";G$(5);TY$:LPRINT" "rLPRINT" ";V$(4);SH%;FNA$ 

(P5%);FNA$(9);V$(1);:LPRINTUSINGH9$;CP!:LPRINT" ";V$(2);PE!; 
FNA$(P4%);FNA$(4);V$(5);:LPRINTUSING9$;DV# 

4050 PRINT@143,G$(4);TI$:PRINT@161,G$(5);TY$:PRINT:PRINT@259,V$( 
4);SH%:PRINT@291,V$(1);"";:PRINTUSINGH9$;CP!:PRINT@325,V$(2);PE! 

:PRINT@350,V$(5);"";:PRINTUSITGH9$;DV#:PRINT@388,V$(3);RF$:PRINT 
@416,V$(6);"";:PRINTUSINGH9$;CR#:PRINT 

New Lines: 4023 V#(4)=V#(3)-CVD(MID$(R$(l),J+27,8)):V#(5)=V#(2)-V#(1)+CVD(M 
ID$(R$(I),J+27,8)):V%=ACS(MID$(R$(I),J+83,1)):IFV%=1THEN4025ELSE 
V%=(V%*3)-2:IFV%>31THENV%=34 

4026 P5%=10-LEN(STR$(SH%)):LPRINTFNA$(15);G$(4);TI$;" ";G$(5 

);TY$:LPRINT" ":LPRINT" ";V$(4);SH%;FNA$(P5%);FNA$(9);V$(1); 

4050 PRINT@143,G$(4);TI$:PRINT@161,G$(5);TY$:PRINT:PRINT@259,V$( 

4;SHX:PRINT@291,V$(1);"";:PRINTUSINGH9$;CP!:PRINT@325,V$(2);PE$: 
PRINT@350,V$(5);""[;:PRINTUSINGH9$;CR#:PRINT 

Add These Lines: 

4021 V#(1)=CVD(MID$(R$(I),J+11,8)):V#(3)=CVD(MID$(R$(I),J+19,8)) 
:CRiNCVD(MID$(R$(I),J+51,8))+CVD(MID$(R$(I),J+59,8)):PE!=CVI(MID 
$(R$(I),J=79,2))/100 

4022 DV#=CVD(MID$(R$(I),J=43,8)):V#(2)=CVI(MID$(R$(I),J=7,2))*CV 
S(MID$(R$(I),J=75,4)):V#(4)=CVD(MID$(R$(I),27,8))-V#(3) 

4024 IFPE!>=300THENPE$=" OVERFLOW "ELSEPE$=MID$(STR$(PE!)+STRIN 
G$(10,32),l,ll) 


4027 LPRINTUSINGH9$;CP!:LPRINT" 
PRINTUSINGH9$;DV# 


";V$(2);PE$;FNA$(4);V$(5);;L 
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